home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / boot / codepw 2.1 / english / install codepw 2.1 < prev    next >
Encoding:
Text File  |  1997-11-23  |  4.0 KB  |  138 lines
  1. ; passwortdatei codePW 2.1 by Jürgen Einrauch 16. Juli 1997      
  2. failat 21
  3.  
  4. echo "  *n*e[32m  ___________________________________________________*e[0m"
  5. echo "  *e[43m                                                   *e[0m"
  6. echo "  *e[28;43m        Password codePW         Version 2.1        *e[0m"
  7. echo "  *e[43m___________________________________________________*e[0m*n"
  8.  
  9. IF EXISTS SYS:S/codePW
  10. echo "   *e[32mFile codePW still exists.*e[0m"
  11. echo "   *e[32mInstallation aborted.*e[0m"
  12. echo "*n   Please read the information file."
  13. wait 4 secs
  14. endcli >nil:
  15. quit
  16. else
  17. echo "   Please read the information file first!"
  18. echo noline "*n   Would you install codePW now? (yes/no): "
  19. set > nil: Inp ?
  20. if $Inp eq "ja"
  21.   skip start
  22. endif
  23. if $Inp eq "j"
  24.   skip start
  25. endif
  26. if $Inp eq "y"
  27.   skip start
  28. endif
  29. if $Inp eq "yes"
  30.   skip start
  31. endif
  32. echo noline "*n   Installation aborted."
  33. EndCLI >NIL:
  34. quit
  35.  
  36. lab start
  37. search >nil: from s:user-startup search "; Begin codePW"
  38. search >nil: from s:user-startup search "IF EXISTS S:codePW"
  39. search >nil: from s:user-startup search " EXECUTE S:codePW"
  40. search >nil: from s:user-startup search "ENDIF; END codePW"
  41. if warn
  42. skip user
  43. else
  44. echo ""
  45. skip install
  46. endif
  47.  
  48. lab user
  49. IF EXISTS SYS:S/User-StartUP
  50. echo "*n   Writing some lines to S/User-StartUP ......"
  51. else
  52. wait 2 secs
  53. echo "*n   User-StartUP not found,"
  54. echo "   I create a new directory ......" 
  55. echo "*n   Writing some lines to S/User-StartUP ......" 
  56. skip userneu
  57. endif
  58.  
  59. lab userneu
  60. echo >ram:tmp "*n; Begin codePW"
  61. type >>s:user-startup ram:tmp
  62. echo >ram:tmp "IF EXISTS S:codePW"
  63. type >>s:user-startup ram:tmp
  64. echo >ram:tmp " EXECUTE S:codePW"
  65. type >>s:user-startup ram:tmp
  66. echo >ram:tmp "ENDIF; End codePW*n"
  67. type >>s:user-startup ram:tmp
  68. delete >nil: ram:tmp
  69.  
  70. lab install
  71.  
  72. set > nil: pass                             ;eingefügt wegen eines bugs !!!
  73. echo "   Install codePW ......"
  74. endif
  75. wait 2 secs
  76. echo "*n   You can input your address now."
  77. echo noline "*n   Christian name, name:  "
  78. set > nil: nam ?
  79. echo  >ram:tmp "echo *"*""
  80. type >>s:codePW ram:tmp
  81. echo  >ram:tmp "echo *"*""
  82. type >>s:codePW ram:tmp
  83. echo  >ram:tmp "echo *"    $nam*""
  84. type >>s:codePW ram:tmp
  85. echo noline "   Street, number      :  "
  86. set > nil: str ?
  87. echo  >ram:tmp "echo *"    $str*""
  88. type >>s:codePW ram:tmp
  89. echo noline "   Postcode, town      :  "
  90. set > nil: plz ?
  91. echo  >ram:tmp "echo *"    $plz*""
  92. type >>s:codePW ram:tmp
  93. echo "*n   Input your password now. Choose only *e[32mone*e[0m" word or 
  94. echo "   number with *e[32mno*e[0m space at the begin, the end and between!*n"
  95. echo noline "   Password input      :  "
  96. set > nil: eingabe ?
  97. echo  >ram:tmp "echo *"    *e[32m______________________________________________________________*e[0m*""
  98. type >>s:codepw ram:tmp
  99. echo  >ram:tmp "echo *"    *e[;;43m                                                              *e[0m*""
  100. type >>s:codepw ram:tmp
  101. echo  >ram:tmp "echo *"    *e[0;28;43m  Wrong input more than three times blocks harddisk forever!  *e[0m*""
  102. type >>s:codepw ram:tmp
  103. echo  >ram:tmp "echo *"    *e[;;43m______________________________________________________________*e[0m*""
  104. type >>s:codepw ram:tmp
  105. echo  >ram:tmp "echo *"*""
  106. type >>s:codePW ram:tmp
  107. echo  >ram:tmp "lab passwort"
  108. type >>s:codePW ram:tmp
  109. echo >ram:tmp "echo noline *"*e[;;31m*""
  110. type >>s:codepw ram:tmp
  111. echo >ram:tmp "echo noline *"    Password: *""
  112. type >>s:codepw ram:tmp
  113. echo >ram:tmp "echo noline *"*e[;;30m]*""
  114. type >>s:codepw ram:tmp
  115. echo  >ram:tmp "set > nil: pass ?"
  116. type >>s:codePW ram:tmp
  117. echo  >ram:tmp "If $pass not eq *"$eingabe*""
  118. type >>s:codePW ram:tmp
  119. echo  >ram:tmp "skip back passwort"
  120. type >>s:codePW ram:tmp
  121. echo  >ram:tmp "endif"
  122. type >>s:codePW ram:tmp
  123. echo  >ram:tmp "unset >nil: pass"
  124. type >>s:codePW ram:tmp
  125. unset >nil: eingabe                        ;damned bug now fixed ? 
  126. unset >nil: pass ;
  127.  
  128. delete >nil: ram:tmp
  129. wait 2 secs
  130.  
  131. echo "*n   Installation finished."
  132. echo "   Reset your computer and check installation."
  133. echo "   First choose a wrong and than the correct password."
  134. echo "   Please wait 5 seconds ......"
  135. wait 5 secs
  136. endcli >nil:
  137. quit
  138.